home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / e / Chris_emods.lha / screens.e < prev    next >
Text File  |  1997-08-17  |  367b  |  17 lines
  1. OPT MODULE, REG = 5
  2.  
  3. MODULE 'exec/lists'
  4.  
  5. EXPORT PROC findpubscreen(scrname) HANDLE
  6.   DEF pslist:PTR TO lh, publock = NIL, found
  7.  
  8.   found := FALSE
  9.   IF (publock := LockPubScreenList()) = NIL THEN Raise("SCRL")
  10.   pslist := publock
  11.   IF FindName(pslist, scrname) THEN found := TRUE
  12. EXCEPT DO
  13.   IF publock
  14.     UnlockPubScreenList(); publock := NIL
  15.   ENDIF
  16. ENDPROC found
  17.